home *** CD-ROM | disk | FTP | other *** search
/ Mind Games (Tessera) / MindGames.iso / files / main.dxr / Internal_2_product object.ls < prev    next >
Encoding:
Text File  |  2002-11-25  |  2.7 KB  |  102 lines
  1. property myDecorImage, myPrintScreensObject, myTextAreaSprite, myTextSprite, myTitleSprite, myState, myDecorSprite, mySwitchToData, myStep, myBuyButton, myTitleMember, myArea
  2. global gAllAreaData
  3.  
  4. on new me
  5.   myDecorSprite = createPuppetSprite(firstEmpty())
  6.   myTextAreaSprite = createPuppetSprite(firstEmpty())
  7.   myTextSprite = createPuppetSprite(firstEmpty())
  8.   myTitleSprite = createPuppetSprite(firstEmpty())
  9.   myTitleMember = member(19, 3)
  10.   myTitleMember.text = EMPTY
  11.   myTitleSprite.member = myTitleMember
  12.   myPrintScreensObject = script("print screen object").new()
  13.   myTextAreaSprite.loc = point(900, 300)
  14.   myTextAreaSprite.blend = 78
  15.   myTextSprite.loc = point(925, 60)
  16.   myTitleSprite.loc = point(500, 554)
  17.   myStep = 0
  18.   myTextAreaSprite.member = member(2, 2)
  19.   myState = "i"
  20.   return me
  21. end
  22.  
  23. on registerBuyButton me, aSprite
  24.   myBuyButton = aSprite
  25.   myBuyButton.visible = 0
  26. end
  27.  
  28. on getArea me, areaCode
  29.   case myState of
  30.     "i":
  31.       getElements(me, areaCode)
  32.       myState = "start"
  33.     "open", "opened":
  34.       myBuyButton.visible = 0
  35.       mySwitchToData = areaCode
  36.       myPrintScreensObject.reset()
  37.       myState = "switchTo"
  38.       mSFX(member(1, 4))
  39.   end case
  40.   myTitleMember.text = gAllAreaData[areaCode].title.text
  41. end
  42.  
  43. on showCustomTitle me, aID
  44.   if aID = 0 then
  45.     myTitleSprite.member = myTitleMember
  46.   else
  47.     myTitleSprite.member = gAllAreaData[aID].title
  48.   end if
  49. end
  50.  
  51. on getElements me, areaCode
  52.   myDecorImage = gAllAreaData[areaCode].decorImage
  53.   myTextSprite.member = gAllAreaData[areaCode].text
  54.   myPrintScreensObject.getList(gAllAreaData[areaCode].screenShots)
  55.   myArea = areaCode
  56. end
  57.  
  58. on ScreenShotsFullScreen me
  59. end
  60.  
  61. on stepFrame me
  62.   case myState of
  63.     "start":
  64.       myDecorSprite.blend = 0
  65.       myDecorSprite.member = myDecorImage
  66.       myState = "open"
  67.       mSFX(member(3, 4))
  68.     "open":
  69.       if myStep < 10 then
  70.         myTextAreaSprite.locH = myTextAreaSprite.locH - 50
  71.         myTextSprite.locH = myTextSprite.locH - 50
  72.         myStep = myStep + 1
  73.       else
  74.         myState = "opened"
  75.         myBuyButton.visible = 1
  76.         mSFX(member(2, 4))
  77.       end if
  78.       if myDecorSprite.blend < 80 then
  79.         myDecorSprite.blend = myDecorSprite.blend + 20
  80.       else
  81.         myDecorSprite.blend = 100
  82.       end if
  83.     "opened":
  84.     "switchTo":
  85.       if myStep > 0 then
  86.         myTextAreaSprite.locH = myTextAreaSprite.locH + 50
  87.         myTextSprite.locH = myTextSprite.locH + 50
  88.         myStep = myStep - 1
  89.       else
  90.         getElements(me, mySwitchToData)
  91.         mySwitchToData = VOID
  92.         myState = "start"
  93.       end if
  94.       if myDecorSprite.blend > 20 then
  95.         myDecorSprite.blend = myDecorSprite.blend - 20
  96.       else
  97.         myDecorSprite.blend = 0
  98.       end if
  99.   end case
  100.   myPrintScreensObject.mUpdate()
  101. end
  102.